 10 DIM X(126),K(2)
 20 DEF FNA(X,Y,Z)=X*SIN(Y*0.01745329)*Z-16*Z^2
 30 PRINT "INPUT MUZZLE VELOCITY (FT/SEC) AND ANGLE (DEGREES)"
 40 LET F2=0
 50 INPUT M,A
 60 LET X(0)=0
 70 FOR T=0.2 TO 25 STEP 0.2
 80   LET L=INT(5*T+0.001)
 90   LET X(L)=FNA(M,A,T)
100   IF X(L)<0 THEN GOTO 150
110   IF X(L)-X(L-1)<=0 AND F2=0 THEN GOTO 250 ELSE GOTO 350
120   LET K(1)=X(L-2)
130   LET W4=T-0.4+J
140   GOTO 280
150   LET W=L-1
160   FOR J=0.01 TO 0.2 STEP 0.01
170     LET K(1)=FNA(M,A,T-0.2+J)
180     IF K(1)<0 THEN GOTO 200
190   NEXT J
200   PRINT "MAXIMUM HEIGHT IS ";K1;" FEET"
210   LET Y=M*COS(A*0.01745329)*(T-0.2+J-0.01)
220   PRINT "RANGE IS ";Y;" FEET"
230   PRINT "TOTAL TIME AIRBORNE IS ";T+J-0.01;" SECONDS"
240   GOTO 360
250   IF X(L-1)-X(L-2)<X(L)-X(L-1) THEN GOTO 120
260   LET K(1)=X(L-1)
270   LET W4=T-0.2+J
280   LET F2=1
290   FOR J=0.01 TO 0.2 STEP 0.01
300     LET K(2)=FNA(M,A,W4)
310     IF K(1)-K(2)<=0 THEN GOTO 340
320     LET K(1)=K(2)
330   NEXT J
340   LET K1=MAX(K(1),K(2))
350 NEXT T
360 IF K1+10>60 THEN GOTO 470 ELSE LET M1=1
370 FOR D=1 TO 62
380   PRINT TAB(10);"+";
390 NEXT D
400 PRINT : PRINT "0";TAB(10);"+"
410 FOR N=1 TO W
420   PRINT 0.2*N*M*COS(A*0.01745329);TAB(10);"+";TAB(X(N)*M1+10);"*"
430 NEXT N
440 PRINT "ANYMORE (YES OR NO)";
450 INPUT A$
460 IF A$="YES" THEN GOTO 30 ELSE GOTO 500
470 LET M1=1/(INT(K1/60+1))
480 PRINT "SCALE OF HEIGHT IS 1 SPACE = ";1/M1;" FEET"
490 GOTO 370
500 END
